home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / WARGAMES.ARC / WAR GAMES (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  13.9 KB  |  435 lines
  1. 10 CLR:RESTORE:POKE29,0:GOTO2055
  2. 20 A$="     DO YOU WANT A PRINTOUT OF THE                  INSTRUCTIONS"
  3. 25 TL=1:GOSUB1725:PRINT"[157]  "
  4. 30 GETR$:IFR$=""THEN30 
  5. 35 IFR$<>"Y"THENRETURN
  6. 40 OPEN4,4,7:CMD4
  7. 45 PRINT CHR$(14) TAB(15)"[215][193][210] [199][193][205][197][211]"
  8. 50 FORS=1TO8:PRINT:NEXT
  9. 55 PRINTCHR$(14)"            [193][212][212][193][195][203] [204][207][195][193][212][201][207][206][211]"
  10. 60 PRINTCHR$(10):PRINTCHR$(10)
  11. 65 PRINTCHR$(14)"  [213].[211]. [195]ITIES         [213].[211].[211].[210]. [195]ITIES ":PRINT
  12. 70 PRINTCHR$(15)
  13. 75 PRINT"      [206]EW [217]ORK   [215]ASHINGTON ";TAB(17);" [205]OSCOW";
  14. 80 PRINT"       [204]ENINGRAD"
  15. 85 PRINT"      [195]HICAGO    [204]OS [193]NGELES";TAB(16);"  [207]MSK";TAB(9);"[195]HELYABINSKI"
  16. 90 PRINT"      [206]ORAD      [203]ANSAS [195]ITY";TAB(18);"[196]ONETSK";TAB(6);"[203]IEV"
  17. 95 PRINT"      [196]ALLAS     [208]HILADELPHIA";TAB(17);"[205]INSK";TAB(8);
  18. 100 PRINT"[195]ENTRAL [210]USSIA"
  19. 105 PRINT"      [211]EATTLE    [206]ORTH [196]AKOTA";TAB(17);"[211]ARATOV";TAB(6);"[212]ASHKENT"
  20. 110 PRINT"      [196]ENVER     [193]LBUQUERQUE";TAB(18);"[193]LMA-[193]TA";TAB(5);"[203]HAR'KOV"
  21. 115 PRINT"      [211]T. [204]OUIS";TAB(31);"[199]ORKY":PRINTCHR$(10):PRINTCHR$(10)
  22. 120 PRINT"      [213]SE JOYSTICK BACK THEN FOREWARD";
  23. 125 PRINT" TO ENABLE MISSLES WHEN PROMPTED.":PRINT
  24. 130 PRINT"      [213]SE THE RESTORE KEY ANY TIME TO ESCAPE FROM A GAME IN PROGRESS."
  25. 135 PRINT"      [196]O NOT, HOWEVER, USE RESTORE [196][213][210][201][206][199] SPEECH."
  26. 140 PRINTCHR$(12):PRINT#4:CLOSE4:RETURN
  27. 145 POKE53281,0:POKE53280,0:CLR:RESTORE
  28. 150 PRINT"[147]"
  29. 155 TL=0:SP=10:GOSUB1720
  30. 160 PRINT"[157] ":TL=1:SP=10:GOSUB1720
  31. 165 PRINT"[157] ":TL=2:SP=10:GOSUB1720
  32. 170 GOSUB2130
  33. 175 IFP4$="JOSHUA"THENPRINT"[157] ":GOTO260
  34. 180 IFP4$="HELP GAMES"THEN220
  35. 185 IFP4$="GAMES 1"THEN495
  36. 190 IFP4$="HELP"ORP4$="HELP LOGON"THEN205
  37. 195 A$="PASSWORD NOT RECOGNIZED BY SYSTEM":PRINT"[157] ":TL=3:GOSUB1725
  38. 200 A$="CONNECTION IS TERMINATED":PRINT"[157] ":TL=4:GOSUB1725:PRINT"[157] ":GOTO145
  39. 205 PRINT"[157] ":A$="---HELP NOT AVAILABLE---":TL=TL+2:GOSUB1725:PRINT"[157] "
  40. 210 RESTORE:FORU=1TO2:READA$:NEXTU:TL=2:FORAQ=1TO1000:NEXTAQ
  41. 215 PRINT"[147]":GOSUB1720:GOTO170
  42. 220 A$="FALKENS MAZE":PRINT"[147]":PRINT"[157] ":TL=1:GOSUB1725:PRINT"[157]  "
  43. 225 A$="CHECKERS":PRINT"[157] ":TL=2:GOSUB1725:PRINT"[157]  "
  44. 230 A$="CHESS":PRINT"[157] ":TL=3:GOSUB1725:PRINT"[157]  "
  45. 235 A$="POKER":PRINT"[157] ":TL=4:GOSUB1725:PRINT"[157]  "
  46. 240 A$="GUERRILLA WARFARE":PRINT"[157] ":TL=5:GOSUB1725:PRINT"[157]  "
  47. 245 A$="CHEMICAL AND BIOTOXIC WARFARE":PRINT"[157] ":TL=6:GOSUB1725:PRINT"[157]  "
  48. 250 A$="GLOBAL THERMONUCLEAR WAR":PRINT"[157] ":TL=10:GOSUB1725:PRINT"[157] "
  49. 255 GOTO210
  50. 260 PRINT"[147]":A$="GREETINGS PROFESSOR FALKEN":TL=0:GOSUB1725:PRINT"[157] "
  51. 265 PRINT:PRINT"  [146]";
  52. 270 GOSUB2130
  53. 275 PRINT:TL=5:A$="HOW ARE YOU TODAY?":GOSUB1725:PRINT"[157] ";:PRINT
  54. 280 PRINT:PRINT" ";" [146]";
  55. 285 GOSUB2130
  56. 290 PRINT:TL=9:A$="SHALL WE PLAY A GAME":GOSUB1725:PRINT"[157] ";:PRINT
  57. 295 PRINT:PRINT" ";" [146]";:P4$=""
  58. 300 GOSUB2130
  59. 305 IFLEFT$(P4$,1)="Y"ORP4$="OK"THENPOKE29,0:GOTO350
  60. 310 POKE29,0
  61. 315 IFP4$="LOVE TO"ORP4$="I'D LOVE TO"THEN350
  62. 320 IFP4$="LOVE TO."ORP4$="I'D LOVE TO."THEN350
  63. 325 IFLEFT$(P4$,1)="N"THENPOKE29,0:GOTO345
  64. 330 POKE29,0
  65. 335 PRINT:TL=13:A$="INVALID REQUEST.SYSTEM RESET":GOSUB1725:PRINT"[157] ";:PRINT
  66. 340 FORQW=1TO2000:NEXT:GOTO145
  67. 345 A$="GOOD BY FOR NOW PROFESSOR":TL=13:GOSUB1725:PRINT"[157] ";:GOTO1715
  68. 350 POKE792,207:POKE793,2:POKE720,7:POKE739,52:POKE743,169:POKE744,48
  69. 355 POKE749,50:POKE754,13:POKE758,0:POKE53280,0:POKE53281,0:PRINT""
  70. 360 A$="FALKENS MAZE":PRINT"[147]":PRINT"[157] ":TL=1:GOSUB1725:PRINT"[157]  "
  71. 365 A$="CHECKERS":PRINT"[157] ":TL=2:GOSUB1725:PRINT"[157]  "
  72. 370 A$="CHESS":PRINT"[157] ":TL=3:GOSUB1725:PRINT"[157]  "
  73. 375 A$="POKER":PRINT"[157] ":TL=4:GOSUB1725:PRINT"[157]  "
  74. 380 A$="GUERILLA WARFARE":PRINT"[157] ":TL=5:GOSUB1725:PRINT"[157]  "
  75. 385 A$="CHEMICAL AND BIOTOXIC WARFARE":PRINT"[157] ":TL=6:GOSUB1725:PRINT"[157]  "
  76. 390 A$="GLOBAL THERMONUCLEAR WAR":PRINT"[157] ":TL=10:GOSUB1725:PRINT"[157] "
  77. 395 A$="CHOOSE ONE":PRINT"[157] ":TL=12:GOSUB1725:PRINT"[157] "
  78. 400 PRINT:PRINT:TL=14:PRINT"  [146]";:GOTO405
  79. 402 GOTO350
  80. 405 P3$=" "
  81. 410 GOSUB2130
  82. 415 IFLEFT$(P4$,4)="GLOB"THENPOKE29,0:GOTO460
  83. 420 POKE29,0:IFP4$="FALKENS MAZE"THEN2090
  84. 425 IFP4$="CHECKERS"THEN2095
  85. 430 IFP4$="CHESS"THEN2100
  86. 435 IFP4$="POKER"THEN2105
  87. 440 IFLEFT$(P4$,4)="CHEM"THENPOKE29,0:GOTO2110
  88. 445 IFP4$="GUERILLA WARFARE"THEN2115
  89. 450 POKE29,0
  90. 455 A$="GAME NOT AVAILABLE":TL=16:GOSUB1725:PRINT"[157]  ":GOTO350
  91. 460 A$="WOULDN'T YOU PREFER A GOOD GAME OF":TL=16:GOSUB1725:PRINT"[157]  "
  92. 465 A$="CHESS":TL=16:GOSUB1725:PRINT"[157]  ":P4$="":PRINT:PRINT" ";" [146]";
  93. 470 GOSUB2130
  94. 475 IFLEFT$(P4$,1)="Y"ORP4$="OK"THENP4$="CHESS":POKE29,0:GOTO430
  95. 480 POKE29,0
  96. 485 A$="FINE":TL=18:GOSUB1725
  97. 490 PRINT"[157] ";
  98. 495 GOSUB2005
  99. 500 POKE53281,0:POKE53280,0:PRINT"[154]"
  100. 505 IFSD=1ORSD=3THENPRINT"[147]ENTER ATTACK LOCATION";:SAY"ENTER ATTACK LOCATION.":INPUTAT$
  101. 510 PRINT"[147]"
  102. 515 PRINT"
  103. 520 [153]"                               (null)TAB(TAB((null)
  104. 525 PRINT"   [186][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][205]      [206]   [206]"
  105. 530 PRINT"   [165]                    [205]    [206]   [206]"
  106. 535 PRINT"   [165]                     [205][164][164][206]   [206]"
  107. 540 PRINT"   [165]                    [172]     [172][206]"
  108. 545 PRINT"   [165]                . .        [165]"
  109. 550 PRINT"   [165]     NORAD                [206]"
  110. 555 PRINT"   [205]       [218]                  [165]"
  111. 560 PRINT"    [205]                         [165]"
  112. 565 PRINT"     [205][187]                      [206] "
  113. 570 PRINT"      [205][164][164][164][164][164][164][164][164]             [206]  "
  114. 575 PRINT"               [205]           [206]   "
  115. 580 PRINT"                [205]  [206][183][183][183][183][205] [167]    "
  116. 585 PRINT"                 [205][206]     [167] [167]    "
  117. 590 PRINT"                         [205][206]
  118. 595 [139]SD[179][177]1[175]SD[179][177]3[167]1120
  119. 600 [139]AT$[178]"CHICAGO"[167]680
  120. 605 [139]AT$[178]"LOS ANGELES"[167]750
  121. 610 [139]AT$[178]"NEW YORK"[167]765
  122. 615 [139]AT$[178]"KANSAS CITY"[167]780
  123. 620 [139]AT$[178]"ST.LOUIS"[176]AT$[178]"ST. LOUIS"[167]795
  124. 625 [139]AT$[178]"SAINT LOUIS"[167]795
  125. 630 [139]AT$[178]"PHILADELPHIA"[167]810
  126. 635 [139]AT$[178]"NORTH DAKOTA"[167]825
  127. 640 [139]AT$[178]"ALBUQUERQUE"[167]840
  128. 645 [139]AT$[178]"DENVER"[167]915
  129. 650 [139]AT$[178]"WASHINGTON D.C."[176]AT$[178]"WASHINGTON,D.C."[167]855
  130. 655 [139]AT$[178]"WASHINGTON"[167]855
  131. 660 [139]AT$[178]"DALLAS"[167]870
  132. 665 [139]AT$[178]"SEATTLE"[167]885
  133. 670 [139]AT$[178]"NORAD"[167]900
  134. 675 [137]505
  135. 680 [153]"ATTACK LOCATION CHICAGO":SAY"ATTACK LOCATION CHICOGO."
  136. 685 CH[178]CH[170]1:[139]CH[179][177]1[167]505
  137. 690 DE[178]2.9:NK[178]0:Z[178]24:K[178]5
  138. 695 [153]"":[129]T[178]1[164]K:[153][163]Z);"SYSPEEK":[129]N[178]1[164]500:[130]N:[130]T
  139. 700 [153][163]Z);"SYS*":[129]T[178]1[164]300:[130]
  140. 705 Z[178]Z[171]3:[153][163]Z);"ONONONSYS(null) (null) (null) (null)
  141. 710 Z=Z+1:PRINTTAB(Z);"[158][213][195][195][195][201]":
  142. 715 PRINTTAB(Z);"[158][199] * [200]"
  143. 720 PRINTTAB(Z);"[158][202][195][195][195][203]
  144. 725 Z[178]Z[171]1:[153][163]Z);"SYS(null) (null) (null) (null)"
  145. 730 [153]""
  146. 735 [129]TR[178]1[164]500:[130]
  147. 740 [139]SU[178]1[167]1510 
  148. 745 [137]930
  149. 750 [153]"ATTACK LOCATION LOS ANGELES":SAY"ATTACK LOCATION LOS ANGELEES."
  150. 755 LA[178]LA[170]1:[139]LA[179][177]1[167]505
  151. 760 DE[178]2:NK[178]25:Z[178]6:K[178]10:[137]695
  152. 765 [153]"ATTACK LOCATION NEW YORK":SAY"ATTACK LOCATION NEW YORK."
  153. 770 NY[178]NY[170]1:[139]NY[179][177]1[167]505
  154. 775 DE[178]6.7:NK[178]0:Z[178]31:K[178]5:[137]695
  155. 780 [153]"ATTACK LOCATION KANSAS CITY":SAY"ATTACK LOCATION KANSAS CITY."
  156. 785 KC[178]KC[170]1:[139]KC[179][177]1[167]505
  157. 790 DE[178].4:NK[178]54:Z[178]20:K[178]6:[137]695
  158. 795 [153]"ATTACK LOCATION ST. LOUIS":SAY"ATTACK LOCATION SAINT LUIS."
  159. 800 SL[178]SL[170]1:[139]SL[179][177]1[167]505
  160. 805 DE[178].4:NK[178]18:Z[178]22:K[178]6:[137]695
  161. 810 [153]"ATTACK LOCATION PHILADELPHIA":SAY"ATTACK LOCATION PHILAD ELPHIA."
  162. 815 PH[178]PH[170]1:[139]PH[179][177]1[167]505
  163. 820 DE[178]1.7:NK[178]0:K[178]6:Z[178]29:[137]695
  164. 825 [153]"ATTACK LOCATION NORTH DAKOTA":SAY"ATTACK LOCATION NORTH DAKOATTA."
  165. 830 ND[178]ND[170]1:[139]ND[179][177]1[167]505
  166. 835 DE[178].4:NK[178]68:Z[178]18:K[178]3:[137]695
  167. 840 [153]"ATTACK LOCATION ALBUQUERQUE":SAY"ATTACK LOCATION ALBUHKERKEY."
  168. 845 AB[178]AB[170]1:[139]AB[179][177]1[167]505
  169. 850 DE[178].3:NK[178]61:Z[178]12:K[178]10:[137]695
  170. 855 [153]"ATTACK LOCATION WASHINGTON":SAY"ATTACK LOCATION WASHINGTON."
  171. 860 WS[178]WS[170]1:[139]WS[179][177]1[167]505
  172. 865 DE[178].9:NK[178]0:Z[178]29:K[178]7:[137]695
  173. 870 [153]"ATTACK LOCATION DALLAS":SAY"ATTACK LOCATION DAALAS."
  174. 875 DL[178]DL[170]1:[139]DL[179][177]1[167]505
  175. 880 DE[178].9:NK[178]21:K[178]11:Z[178]18:[137]695
  176. 885 [153]"ATTACK LOCATION SEATTLE":SAY"ATTACK LOCATION SEAATTLE."
  177. 890 S(1)[178]S(1)[170]1:[139]S(1)[179][177]1[167]505
  178. 895 DE[178].5:NK[178]4:K[178]3:Z[178]4:[137]695
  179. 900 [153]"ATTACK LOCATION NORAD":SAY"ATTACK LOCATION NORAD."
  180. 905 NR[178]NR[170]1:[139]NR[179][177]1[167]505
  181. 910 DE[178].1:NK[178]24:Z[178]11:K[178]8:[137]695
  182. 915 [153]"ATTACK LOCATION DENVER":SAY"ATTACK LOCATION DENVER."
  183. 920 DN[178]DN[170]1:[139]DN[179][177]1[167]505
  184. 925 DE[178].5:NK[178]45:Z[178]12:K[178]6:[137]695
  185. 930 [139]SD[178]0[167]1105
  186. 935 [153]"LOADTOTAL DEAD: ";DE;"MILLION":HE[178][181](50[172][187](1))[170]50
  187. 940 DE[178]DE[172]1000000
  188. 945 [153]"HOUSING DESTROYED: ";HE;"%"
  189. 950 HE[178]HE[172]137000
  190. 955 HE[178]HE[170](NK[172]52000)
  191. 960 [153]"TOTAL DAMAGE COST: $";HE
  192. 965 DF[178]1:[153]"NUCLEAR WAR HEADS DESTROYED";NK:US1[178]US1[170](DE[170]HE)
  193. 970 [153][163]30);"ONONONONONONONDEFCON"
  194. 975 [153][163]32);"(null)USR(null)"
  195. 980 [153][163]32);"SGN5+
  196. 985 PRINTTAB(32);"[207][183][208]
  197. 990 [153][163]32);"SGN4+
  198. 995 PRINTTAB(32);"[207][183][208]
  199. 1000 [153][163]32);"SGN3+
  200. 1005 PRINTTAB(32);"[207][183][208]
  201. 1010 [153][163]32);"SGN2+
  202. 1015 PRINTTAB(32);"[150][207][183][208]
  203. 1020 [153][163]32);"SGN1DEF+
  204. 1025 PRINTTAB(32);"[204][175][186]
  205. 1030 SAY"HERE IS THE STA TISTICKS."
  206. 1035 [153]"ONONONONU.S. COUNTER ATTACK HAS BEGUN"
  207. 1040 SAY"U S  COUNTER ATTACK HAS BEGUN."
  208. 1045 [139]SD[178]2[167]1060
  209. 1050 [153]"10 SECONDS TO VISIBILITY"
  210. 1055 SAY"TEN SECONDS TO VISEBILITY."
  211. 1060 [153]"     HIT ANY KEY TO CONTINUE":SAY"HIT ANY KEY.":[139]SD[178]2[167]1085
  212. 1065 [139]SD[179][177]0[167][161]EQ$:[139]EQ$[178]""[167]1065
  213. 1070 [139]SD[179][177]0[167]:SAY"T MI NUS TEN SECONDS.":[129]IM[178]10[164]0[169][171]1:[129]MI[178]1[164]500:[130]MI
  214. 1075 [139]SD[179][177]0[167][153]"LOAD      T MINUS "IM;[163]RE);"AND COUNTING"
  215. 1080 [139]SD[179][177]0[167][130]IM:[139]IM[178]10[167]RE[178][171]1
  216. 1085 P[178]P[170]1:[139]P[178]6[167]1610
  217. 1090 [139]SD[179][177]2[167]1210
  218. 1095 [161]EQ$:[139]EQ$[178]""[167]1095
  219. 1100 [137]1210
  220. 1105 HE[178][181](50[172][187](1))[170]50
  221. 1110 DE[178]DE[172]1000000:HE[178]HE[172]137000:HE[178]HE[170](NK[172]52000):US1[178]US1[170](DE[170]HE)
  222. 1115 [137]1085
  223. 1120 A[178][181](13[172][187](1))[170]1
  224. 1125 [145]A[137]680,750,765,780,795,915,825,840,810,855,870,885,900
  225. 1130 YU[178]1:WW$[178]"LOADENTER ATTACK LOCATION":[153]WW$:SAYWW$
  226. 1135 [153]"";:[133]"                      ";W$
  227. 1140 [141]1435:[139]W$[178]"MOSCOW"[167]1235
  228. 1145 [139]W$[178]"LENINGRAD"[167]1265
  229. 1150 [139]W$[178]"MINSK"[167]1280
  230. 1155 [139]W$[178]"KIEV"[167]1295
  231. 1160 [139]W$[178]"CENTRAL RUSSIA"[167]1310
  232. 1165 [139]W$[178]"TASHKENT"[167]1325
  233. 1170 [139]W$[178]"GORKY"[167]1355
  234. 1175 [139]W$[178]"OMSK"[167]1370
  235. 1180 [139]W$[178]"ALMA-ATA"[167]1400
  236. 1185 [139]W$[178]"CHELYABINSKI"[167]1385
  237. 1190 [139]W$[178]"KHARKOV"[176]W$[178]"KHAR'KOV"[167]1415
  238. 1195 [139]W$[178]"SARATOV"[167]1250
  239. 1200 [139]W$[178]"DONETSK"[167]1340
  240. 1205 WW$[178]"ATTACK LOCATION NOT AVAILABLE":[153]WW$:SAYWW$:[129]SB[178]1[164]1250:[130]:[137]1130
  241. 1210 A[178][181](13[172][187](1))[170]1:YU[178]1:SU[178]1
  242. 1215 [139]SD[178]2[176]SD[178]3[167]1780
  243. 1220 [139]SD[178]2[176]SD[178]3[167]1130
  244. 1225 [141]1435
  245. 1230 [145]A[137]1235,1250,1265,1280,1295,1310,1325,1340,1355,1370,1385,1400,1415
  246. 1235 MC[178]MC[170]1:[139]MC[179][177]1[167]1210
  247. 1240 [153]" ATTACK LOCATION MOSCOW":SAY"ATTACK LOCATION MOSCOU."
  248. 1245 DO[178]6.3:NK[178]0:Z[178]8:K[178]9:[137]695
  249. 1250 SR[178]SR[170]1:[139]SR[179][177]1[167]1210
  250. 1255 [153]" ATTACK LOCATION SARATOV":SAY"ATTACK LOCATION SARATOV."
  251. 1260 DO[178].9:NK[178]7:Z[178]12:K[178]10:[137]695
  252. 1265 LE[178]LE[170]1:[139]LE[179][177]1[167]1210
  253. 1270 [153]" ATTACK LOCATION LENINGRAD":SAY"ATTACK LOCATION LENIN GRAD."
  254. 1275 DO[178]3:NK[178]8:K[178]7:Z[178]8:[137]695
  255. 1280 MN[178]MN[170]1:[139]MN[179][177]1[167]1210
  256. 1285 [153]" ATTACK LOCATION MINSK":SAY"ATTACK LOCATION MINSK."
  257. 1290 DO[178]1.1:NK[178]4:Z[178]7:K[178]8:[137]695
  258. 1295 KV[178]KV[170]1:[139]KV[179][177]1[167]1210
  259. 1300 [153]" ATTACK LOCATION KIEV":SAY"ATTACK LOCATION KE EV."
  260. 1305 DO[178]1.1:NK[178]4:Z[178]7:K[178]8:[137]695
  261. 1310 MR[178]MR[170]1:[139]MR[179][177]1[167]1210
  262. 1315 [153]" ATTACK LOCATION CENTRAL RUSSIA":SAY"ATTACK LOCATION CENTRAL RUSHA."
  263. 1320 DO[178].3:NK[178]42:Z[178]24:K[178]7:[137]695
  264. 1325 TS[178]TS[170]1:[139]TS[179][177]1[167]1210
  265. 1330 [153]" ATTACK LOCATION TASHKENT":SAY"ATTACK LOCATION TASHKENT."
  266. 1335 DO[178]1.5:NK[178]5:Z[178]11:K[178]11:[137]695
  267. 1340 DS[178]DS[170]1:[139]DS[179][177]1[167]1210
  268. 1345 [153]" ATTACK LOCATION DONETSK":SAY"ATTACK LOCATION DONETSK."
  269. 1350 DO[178]1.1:NK[178]23:Z[178]12:K[178]11:[137]695
  270. 1355 GR[178]GR[170]1:[139]GR[179][177]1[167]1210
  271. 1360 [153]" ATTACK LOCATION GORKY":SAY"ATTACK LOCATION GORKY."
  272. 1365 DO[178]1.3:NK[178]2:Z[178]10:K[178]9:[137]695
  273. 1370 OM[178]OM[170]1:[139]OM[179][177]1[167]1210
  274. 1375 [153]" ATTACK LOCATION OMSK":SAY"ATTACK LOCATION OMSK."
  275. 1380 DO[178]1.3:NK[178]22:Z[178]16:K[178]8:[137]695
  276. 1385 CH[178]CH[170]1:[139]CH[179][177]1[167]1210
  277. 1390 [153]" ATTACK LOCATION CHELYABINSKI":SAY"ATTACK LOCATION CHELABINSKY."
  278. 1395 DO[178]1:NK[178]10:Z[178]13:K[178]9:[137]695
  279. 1400 AA[178]AA[170]1:[139]AA[179][177]1[167]1210
  280. 1405 [153]" ATTACK LOCATION ALMA-ATA":SAY"ATTACK LOCATION AELMA.AETTA."
  281. 1410 DO[178].9:NK[178]16:Z[178]12:K[178]11:[137]695
  282. 1415 KK[178]KK[170]1:[139]KK[179][177]1[167]1210
  283. 1420 [153]" ATTACK LOCATION KHAR'KOV":SAY"ATTACK LOCATION KAR KOV."
  284. 1425 DO[178]1.5:NK[178]0:Z[178]8:K[178]10:[137]695
  285. 1430 [128]
  286. 1435 [153]"LOADDEF
  287. 1440 PRINT"                            [206][205]
  288. 1445 [153]"              (null)TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)TO(null)TAB(TAB(TAB(  (null)
  289. 1450 PRINT"             [206]                 [205]
  290. 1455 [153]"            (null)                   (null)
  291. 1460 PRINT"        [206][163][205][206]                    [206]
  292. 1465 [153]"       (null)                       (null)
  293. 1470 PRINT"      [206]                       [206]
  294. 1475 [153]"      (null)                      (null)
  295. 1480 PRINT"       [205]         [164][164][164][164][164][206][163][163][205]   [165]
  296. 1485 [153]"        (null)  TOTOTOTOTO(null)         (null)  FN
  297. 1490 PRINT"         [205][206]                [205] [165]
  298. 1495 [153]"                            (null)FN
  299. 1500 PRINT"
  300. 1505 [139]YU[178]1[167]YU[178]0:[142]
  301. 1510 [139]SD[178]0[167]1590
  302. 1515 [153]"LOADTOTAL DEAD: ";DO;"MILLION":HO[178][181](50[172][187](1))[170]50
  303. 1520 DO[178]DO[172]1000000
  304. 1525 [153]"HOUSING DESTROYED: ";HO;"%"
  305. 1530 HO[178]HO[172]137000
  306. 1535 HO[178]HO[170](NK[172]52000)
  307. 1540 [153]"TOTAL DAMAGE COST: $";HO
  308. 1545 [153]"NUCLEAR WAR HEADS DESTROYED";NK
  309. 1550 HX1[178]HX1[170](DO[170]HO):P[178]P[170]1:HO[178]0:DO[178]0
  310. 1555 SAY"HERE ARE THE STA TISTICS."
  311. 1560 [139]P[178]8[167]1580
  312. 1565 [153]"      HIT ANY KEY TO CONTINUE      ":SU[178]0:SAY"HIT ANY KEY."
  313. 1570 [139]SD[179][177]0[167][161]ER$:[139]ER$[178]""[167]1570
  314. 1575 [137]500
  315. 1580 [139]SD[179][177]0[167][161]ER$:[139]ER$[178]""[167]1580
  316. 1585 [137]1610
  317. 1590 HO[178][181](50[172][187](1))[170]50
  318. 1595 DO[178]DO[172]1000000:HO[178]HO[172]137000:HO[178]HO[170](NK[172]52000):HX1[178]HX1[170](DO[170]HO):P[178]P[170]1:HO[178]0
  319. 1600 DO[178]0:SU[178]0:YU[178]1:[139]P[178]8[167]1580
  320. 1605 [137]1570
  321. 1610 TL[178]0:[139]US1[177]HX1[167]1645
  322. 1615 [153]"LOAD":A$[178]" THE U.S.S.R. ATTACK HAS BEEN STOPPED":[141]1725:[153]"CMD "
  323. 1620 TL[178]3:A$[178]"   THE FINAL SCORES ARE:":[141]1725:[153]"CMD "
  324. 1625 TL[178]7:[153]"CONT":A$[178]"UNITED STATES:":[141]1725:[153]"CMD ";HX1
  325. 1630 TL[178]9:[153]"DEF":A$[178]"RUSSIA:       ":[141]1725:[153]"CMD ";US1
  326. 1635 TL[178]18:[153]"":A$[178]"       WINNER: UNITED STATES":[141]1725:[153]"CMD "
  327. 1640 [137]1675
  328. 1645 TL[178]0:[153]"LOAD":A$[178]" THE U.S.S.R. ATTACK IS SUCCESSFUL":[141]1725:[153]"CMD "
  329. 1650 TL[178]2:A$[178]"    THE U.S. HAS BEEN CONQUERED":[141]1725:[153]"CMD "
  330. 1655 TL[178]5:A$[178]"    THE FINAL SCORES ARE:":[141]1725:[153]"CMD "
  331. 1660 TL[178]8:[153]"CONT":A$[178]"UNITED STATES:":[141]1725:[153]"CMD ";HX1
  332. 1665 TL[178]10:[153]"DEF":A$[178]"RUSSIA:       ":[141]1725:[153]"CMD ";US1
  333. 1670 TL[178]18:[153]"":A$[178]"       WINNER: U.S.S.R.":[141]1725:[153]"CMD "
  334. 1675 [129]K[178]1[164]3000:[130]:[153]"LOAD"
  335. 1680 TL[178]0:A$[178]"  WANT TO PLAY NUCLEAR WAR AGAIN?":[141]1725:[153]"CMD "
  336. 1685 [161]Y$:[139]Y$[178]""[167]1685
  337. 1690 [139]Y$[178]"Y"[167][156]:[140]:[129]YT[178]1[164]3:[135]PA$:[130]:[137]495
  338. 1695 TL[178]3:A$[178]"  WANT TO RETURN TO THE MENU?":[141]1725
  339. 1700 [161]Y$:[139]Y$[178]""[167]1700
  340. 1705 [139]Y$[179][177]"N"[167]350
  341. 1710 TL[178]7:A$[178]"        GOOD-BY PROFESSOR!!!":[141]1725
  342. 1715 [153]"LOAD  BYE BYE":SAY"BYE BYE.":[128]
  343. 1720 [135]A$
  344. 1725 A[178][195](A$):[153]
  345. 1730 [129]B[178]1[164]A:[153]"":[129]SE[178]1[164]TL:[153]:[130]SE:[153]"";:[139]TL[178]0[167][153]"ONON"
  346. 1735 [139][200](A$,1)[178]"H"[175]TL[178]5[167][151]29,0:[153]"CMDCMD"
  347. 1740 [151]29,0
  348. 1745 [153][163]B);[202](A$,B,1);" WAIT";
  349. 1750 [129]C[178]1[164]SP:[130]
  350. 1755 [130]B
  351. 1760 SAYA$
  352. 1765 [142]
  353. 1770 [137]1675
  354. 1775 [151]29,0
  355. 1780 [137]1970
  356. 1785 [151]56322,0
  357. 1790 JV[178][194](56320)
  358. 1795 FR[178]JV[175]16
  359. 1800 JV[178]15[171](JV[175]15)
  360. 1805 [151]56322,255
  361. 1810 [142]
  362. 1815 [141]1785
  363. 1820 [139]JV[179][177]2[167]1815
  364. 1825 [141]1785
  365. 1830 [139]JV[179][177]1[167]1825
  366. 1835 [153]"DEF    (null)"
  367. 1840 [153]" ENABLED":SAY"ENAEBLED"
  368. 1845 [141]1785
  369. 1850 [139]JV[179][177]2[167]1845
  370. 1855 [141]1785
  371. 1860 [139]JV[179][177]1[167]1855
  372. 1865 [153]"DEF";[163]12);"(null)"
  373. 1870 [153][163]9);"ENABLED":SAY"ENAEBLED"
  374. 1875 [141]1785
  375. 1880 [139]JV[179][177]2[167]1875
  376. 1885 [141]1785
  377. 1890 [139]JV[179][177]1[167]1885
  378. 1895 [153]"DEF";[163]20);"(null)"
  379. 1900 [153][163]17);"ENABLED":SAY"ENAEBLED"
  380. 1905 [141]1785
  381. 1910 [139]JV[179][177]2[167]1905
  382. 1915 [141]1785
  383. 1920 [139]JV[179][177]1[167]1915
  384. 1925 [153]"DEF";[163]28);"(null)"
  385. 1930 [153][163]25);"ENABLED":SAY"ENAEBLED"
  386. 1935 [141]1785
  387. 1940 [139]JV[179][177]2[167]1935
  388. 1945 [141]1785
  389. 1950 [139]JV[179][177]1[167]1945
  390. 1955 [153]"DEF";[163]36);"(null)"
  391. 1960 [153][163]33);"ENABLED":SAY"ENAEBLED."
  392. 1965 [153]"CONT":[137]1220
  393. 1970 [153]"LOAD            ENABLE MISSLES              ":SAY"ENAEBLE MISSLES."
  394. 1975 [153]"    (null)       (null)       (null)       (null)       (null)  "
  395. 1980 [137]1815
  396. 1985 [131]"                                      "
  397. 1990 [131]"                                      "
  398. 1995 [131]"LOG ON:"
  399. 2000 [131]"FIRST","SECOND","THIRD","FORTH"
  400. 2005 [153]"LOAD"
  401. 2010 [151]792,207:[151]793,2:[151]720,7:[151]739,52:[151]743,169:[151]744,48
  402. 2015 [151]749,50:[151]754,13:[151]758,0:[151]53280,0:[151]53281,0:[153]"":[141]20
  403. 2020 TL[178]5:[153]"LOADDEF":A$[178]"  1.SOVIET UNION":[141]1725:[153]"CMD "
  404. 2025 TL[178]7:[153]"CONT":A$[178]"  2.UNITED STATES":[141]1725:[153]"CMD "
  405. 2030 TL[178]9:[153]"":A$[178]"  WHICH SIDE DO YOU WANT?":[141]1725:[153]"CMD "
  406. 2035 [161]SD$:[139]SD$[178]""[167]2035
  407. 2040 SD[178][197](SD$)
  408. 2045 [139]SD[177]3[167]2005
  409. 2050 [142]
  410. 2055 [151]792,207:[151]793,2:[151]720,7:[151]739,13:[151]743,0:[153]"LOAD"
  411. 2056 [139][194](49153)[179][177]187[167]2075
  412. 2060 [158]38144:[151]52,125:[151]54,125:[151]56,125:[151]53280,0:[151]53281,0
  413. 2065 ]RE:]LI 1:]SP 68:]PI 68:]KN 150,150:[151]38114,96
  414. 2067 [139][194](49920)[179][177]131[167]145
  415. 2070 [158]49312:[151]29,0:[151]53265,27:[151]56576,199:[151]53270,200:[151]53272,21
  416. 2072 [151]49920,0:[137]145
  417. 2075 [151]53280,6:[151]53281,6
  418. 2080 [153]"          LOADING SUB PROGRAMS  WAIT"
  419. 2085 [147]"SAM",8,1
  420. 2090 [153]"LOADLOAD";[199](34);"FALKENS MAZE";[199](34);",8,1":[137]2120
  421. 2095 [153]"LOADLOAD";[199](34);"CHECKERS";[199](34);",8,1":[137]2120
  422. 2100 [151]25598,0:[151]12287,200:[153]"LOADLOAD";[199](34);"CHESS";[199](34);",8,1":[137]2120
  423. 2105 [153]"LOADLOAD";[199](34);"POKER";[199](34);",8,1":[137]2120
  424. 2110 [153]"LOADLOAD";[199](34);"BIO WAREFARE";[199](34);",8,1":[137]2120
  425. 2115 [153]"LOADLOAD";[199](34);"GUERILLA WARFARE";[199](34);",8,1":[137]2120
  426. 2120 [151]631,19:[151]632,13:[151]633,82:[151]634,117:[151]635,13:[151]198,5:[151]29,0
  427. 2125 [128]
  428. 2130 P4$[178]""
  429. 2133 [161]P3$:[139]P3$[178]""[167]2133
  430. 2135 [139]P3$[178][199](13)[167][153]"CMD ":[142]
  431. 2140 [139]P3$[178][199](20)[167][153]"CMD";[199](20);" WAIT";:P4$[178][200](P4$,[195](P4$)[171]1):[137]2133
  432. 2145 P4$[178]P4$[170]P3$
  433. 2150 [153]"CMD ";"CMD";P3$;" WAIT";
  434. 2155 [137]2133
  435.